home *** CD-ROM | disk | FTP | other *** search
/ PCMania 64 / PCMania CD64_1.iso / phy / phy005 / lowlevel / triangul.pas < prev    next >
Encoding:
Pascal/Delphi Source File  |  1997-07-04  |  406 b   |  19 lines
  1. UNIT Triangul;   {  Unitat per extendre la funció de dibuixat de triangles. }
  2. {$L trian5.obj}                    {  Navi/PhyMosys  }
  3.  
  4. INTERFACE
  5.  
  6. TYPE TrianType = RECORD
  7.                    x1, y1, x2, y2, x3, y3 : WORD;
  8.                    color : BYTE;
  9.                  END;
  10.  
  11. PROCEDURE Triangulo(Tr : TrianType);
  12.  
  13. IMPLEMENTATION
  14.  
  15. PROCEDURE Triangulo(Tr : TrianType); external;
  16.  
  17. BEGIN
  18. END.
  19.